﻿Public Partial Class Parametri
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Page.Title = ConfigurationManager.AppSettings("sitename") & " Amministrazione - Configurazione Parametri"
    End Sub

#Region "TipoContratto"
    Private Sub GRD_TipoContratto_DataRequesting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridDataRequestEventArgs) Handles GRD_TipoContratto.DataRequesting
        GRD_TipoContratto.DataSource = DAL.Context.TipoContratto.ToList
        GRD_TipoContratto.DataBind()
    End Sub
    Private Sub GRD_TipoContratto_RowAdding(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowAddEventArgs) Handles GRD_TipoContratto.RowAdding
        Try
            If Not String.IsNullOrEmpty(e.RowData("Descrizione")) Then
                Dim tipo As New TipoContratto With {.Descrizione = e.RowData("Descrizione")}
                DAL.Context.TipoContratto.InsertOnSubmit(tipo)
                DAL.Context.SubmitChanges()
            Else
                GRD_TipoContratto.ShowEditValidationMessage("La descrizione è obbligatoria")
            End If
        Catch ex As Exception
            GRD_TipoContratto.ShowEditValidationMessage(ex.Message)
        End Try
    End Sub
    Private Sub GRD_TipoContratto_RowDeleting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowDeleteEventArgs) Handles GRD_TipoContratto.RowDeleting
        Dim tipo As TipoContratto = DAL.Context.TipoContratto.Where(Function(t) t.ID = e.RowKey).Single
        DAL.Context.TipoContratto.DeleteOnSubmit(tipo)
        DAL.Context.SubmitChanges()
    End Sub
    Private Sub GRD_TipoContratto_RowEditing(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowEditEventArgs) Handles GRD_TipoContratto.RowEditing
        Try
            Dim tipo As TipoContratto = DAL.Context.TipoContratto.Where(Function(t) t.ID = e.RowKey).Single
            tipo.Descrizione = e.RowData("Descrizione")
            DAL.Context.SubmitChanges()
        Catch ex As Exception
            GRD_TipoContratto.ShowEditValidationMessage(ex.Message)
        End Try
    End Sub
#End Region

#Region "TipoImmobile"
    Private Sub GRD_TipoImmobile_DataRequesting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridDataRequestEventArgs) Handles GRD_TipoImmobile.DataRequesting
        GRD_TipoImmobile.DataSource = DAL.Context.TipoImmobile.ToList
        GRD_TipoImmobile.DataBind()
    End Sub
    Private Sub GRD_TipoImmobile_RowAdding(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowAddEventArgs) Handles GRD_TipoImmobile.RowAdding
        Try
            If Not String.IsNullOrEmpty(e.RowData("Descrizione")) Then
                Dim tipo As New TipoImmobile With {.Descrizione = e.RowData("Descrizione")}
                DAL.Context.TipoImmobile.InsertOnSubmit(tipo)
                DAL.Context.SubmitChanges()
            Else
                GRD_TipoImmobile.ShowEditValidationMessage("La descrizione è obbligatoria")
            End If
        Catch ex As Exception
            GRD_TipoImmobile.ShowEditValidationMessage(ex.Message)
        End Try
    End Sub
    Private Sub GRD_TipoImmobile_RowDeleting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowDeleteEventArgs) Handles GRD_TipoImmobile.RowDeleting
        Dim tipo As TipoImmobile = DAL.Context.TipoImmobile.Where(Function(t) t.ID = e.RowKey).Single
        DAL.Context.TipoImmobile.DeleteOnSubmit(tipo)
        DAL.Context.SubmitChanges()
    End Sub
    Private Sub GRD_TipoImmobile_RowEditing(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowEditEventArgs) Handles GRD_TipoImmobile.RowEditing
        Try
            Dim tipo As TipoImmobile = DAL.Context.TipoImmobile.Where(Function(t) t.ID = e.RowKey).Single
            tipo.Descrizione = e.RowData("Descrizione")
            DAL.Context.SubmitChanges()
        Catch ex As Exception
            GRD_TipoImmobile.ShowEditValidationMessage(ex.Message)
        End Try
    End Sub
#End Region

#Region "TipoCondizione"
    Private Sub GRD_TipoCondizione_DataRequesting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridDataRequestEventArgs) Handles GRD_TipoCondizione.DataRequesting
        GRD_TipoCondizione.DataSource = DAL.Context.Condizione.ToList
        GRD_TipoCondizione.DataBind()
    End Sub
    Private Sub GRD_TipoCondizione_RowAdding(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowAddEventArgs) Handles GRD_TipoCondizione.RowAdding
        Try
            If Not String.IsNullOrEmpty(e.RowData("Descrizione")) Then
                Dim tipo As New Condizione With {.Descrizione = e.RowData("Descrizione")}
                DAL.Context.Condizione.InsertOnSubmit(tipo)
                DAL.Context.SubmitChanges()
            Else
                GRD_TipoCondizione.ShowEditValidationMessage("La descrizione è obbligatoria")
            End If
        Catch ex As Exception
            GRD_TipoCondizione.ShowEditValidationMessage(ex.Message)
        End Try
    End Sub
    Private Sub GRD_TipoCondizione_RowDeleting(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowDeleteEventArgs) Handles GRD_TipoCondizione.RowDeleting
        Dim tipo As Condizione = DAL.Context.Condizione.Where(Function(t) t.ID = e.RowKey).Single
        DAL.Context.Condizione.DeleteOnSubmit(tipo)
        DAL.Context.SubmitChanges()
    End Sub
    Private Sub GRD_TipoCondizione_RowEditing(ByVal sender As Object, ByVal e As Trirand.Web.UI.WebControls.JQGridRowEditEventArgs) Handles GRD_TipoCondizione.RowEditing
        Try
            Dim tipo As Condizione = DAL.Context.Condizione.Where(Function(t) t.ID = e.RowKey).Single
            tipo.Descrizione = e.RowData("Descrizione")
            DAL.Context.SubmitChanges()
        Catch ex As Exception
            GRD_TipoCondizione.ShowEditValidationMessage(ex.Message)
        End Try
    End Sub
#End Region

End Class